home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / game / wb / HIT1_0.lha / HangInThere! / Install < prev    next >
Text File  |  1997-09-13  |  1KB  |  66 lines
  1. ; Install Script for HangInThere! 1.0
  2. ;
  3. ; Written by Alvaro Thompson
  4. ; $VER: 1.0 (??/??/97)
  5.  
  6. (set #info "- HangInThere! 1.0 -\n\nWritten by Alvaro Thompson\nGraphics by Chris Turpin\nMusic by Steve Clack and Matt Whitfield\n\n*** E-MAILWARE ***")
  7. (set #where "Where do you wish to install HIT?\n(A Drawer WILL be created)")
  8.  
  9. (message #info)
  10.  
  11. (set destination
  12.  (askdir
  13.   (prompt #where)
  14.   (help @askdir-help)
  15.   (default "Games:")
  16.  )
  17. )
  18.  
  19. (makedir (tackon destination "HangInThere!"))
  20.  
  21. (set trgt (tackon destination "HangInThere!"))
  22.  
  23. (copyfiles
  24.  (help @copyfiles-help)
  25.  (source "")
  26.  (dest trgt)
  27.  (all)
  28. )
  29.  
  30. (if (= (exists "/HangInThere!.info"))
  31.  (
  32.   (copyfiles
  33.    (help @copyfiles-help)
  34.    (source "/HangInThere!.info")
  35.    (dest destination)
  36.   )
  37.  ) 
  38. )
  39.  
  40. (copyfiles
  41.  (help @copyfiles-help)
  42.  (source (tackon trgt "Fonts/"))
  43.  (dest "FONTS:")
  44.  (all)
  45. ) 
  46.  
  47. (copylib
  48.  (help @copylib-help)
  49.  (source (tackon trgt "Libs/reqtools.library"))
  50.  (dest "LIBS:")
  51. ) 
  52.  
  53. (copylib
  54.  (help @copylib-help)
  55.  (source (tackon trgt "Libs/powerpacker.library"))
  56.  (dest "LIBS:")
  57. ) 
  58.  
  59. (delete (tackon trgt "Install"))
  60. (delete (tackon trgt "Install.info"))
  61. (delete (tackon trgt "Fonts" (all)))
  62. (delete (tackon trgt "Libs" (all)))
  63.    
  64.  
  65. (set @default-dest trgt)
  66.